"primates" <-
structure(list(Species = structure(c(4, 2, 3, 5, 1), .Label = c("Chimp", 
"Gorilla", "Human", "Potar monkey", "Rhesus monkey"), class = "factor"), 
    Bodywt = c(10, 207, 62, 6.8, 52.2), Brainwt = c(115, 406, 
    1320, 179, 440)), .Names = c("Species", "Bodywt", "Brainwt"
), class = "data.frame", row.names = c("1", "2", "3", "4", "5"
))
